home *** CD-ROM | disk | FTP | other *** search
/ Windows News 2005 November / WNnov2005.iso / Windows / Equipement / hMailServer / hMailServer-4.1-Build-136.exe / {app} / PHPWebAdmin / distributionlists.php < prev    next >
PHP Script  |  2005-01-06  |  2KB  |  58 lines
  1. <?php
  2. /*
  3. ** $Id: distributionlists.php,v 1.3 2005/01/05 22:22:50 hmailserver Exp $
  4. **
  5. **    hMailServer - Web interface
  6. **
  7. **    File formatted using TAB size 4
  8. **
  9. **    Get hMailserver at http://www.hmailserver.com
  10. **
  11. **    Author: Steen Rab°l <srabol@mail.tele.dk>
  12. **    Copyright (c) 2004, Steen Rab°l <srabol@mail.tele.dk>
  13. **
  14. **  This program is free software; you can redistribute it and/or modify
  15. **  it under the terms of the GNU General Public License as published by
  16. **  the Free Software Foundation; either version 2 of the License, or
  17. **  (at your option) any later version.
  18. **
  19. **  You may not change or alter any portion of this comment or credits
  20. **  of supporting developers from this source code or any supporting
  21. **  source code which is considered copyrighted (c) material of the
  22. **  original comment or credit authors.
  23. **
  24. **  This program is distributed in the hope that it will be useful,
  25. **  but WITHOUT ANY WARRANTY; without even the implied warranty of
  26. **  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  27. **  GNU General Public License for more details.
  28. **
  29. **  You should have received a copy of the GNU General Public License
  30. **  along with this program; if not, write to the Free Software
  31. **  Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307 USA
  32. **
  33. */
  34.  
  35. $DomainID                = hmailGetVar("DomainID",null);
  36. $function                = hmailGetVar("function");
  37.  
  38. if (hmailGetAdminLevel() == 0)
  39.     hmailHackingAttemp(); // Users are not allowed to show this page.
  40.  
  41. if (hmailGetAdminLevel() == 1 && $DomainID != hmailGetDomainID())
  42.     hmailHackingAttemp(); // Domain admin but not for this domain.
  43.  
  44. $obDomain                = $obBaseApp->Domains->ItemByDBID($DomainID);
  45. $obDistributionLists    = $obDomain->DistributionLists();
  46. $Count = $obDistributionLists->Count();
  47.  
  48. for ($i = 0; $i < $Count; $i++)
  49. {
  50.     $obDistributionList = $obDistributionLists->Item($i);
  51.     $hmailSmarty->append("records",$obDistributionList);
  52.     $obRecipients    = $obDistributionList->Recipients();
  53.     $hmailSmarty->append("records_info",array("dlist_cnt" =>$obRecipients->Count()));
  54. }
  55.  
  56. $hmailSmarty->assign("domain",$obDomain);
  57. $hmailSmarty->assign("pagecontent", $hmailSmarty->fetch('distributionlists.tpl'));
  58. ?>